63987 D$ = CHR$ (4): HOME 63988 INPUT "FILE NAME TO SAVE PROGRAM UNDER: ";F$ 63989 IF LEN (F$) = 0 THEN END 63990 PRINT D$;"OPEN";F$ 63991 PRINT D$;"CLOSE";F$ 63992 PRINT D$;"DELETE";F$ 63993 POKE 33,33 63994 PRINT D$;"OPEN";F$ 63995 PRINT D$;"WRITE";F$ 63996 LIST 0,63999 63997 PRINT D$;"CLOSE";F$ 63998 POKE 33,40 63999 PRINT : PRINT : PRINT "FINISHED": REM RUN 63987